program Task1;
var
   i, x : Integer;
   flag : Boolean;


function f(i : Integer) : Integer;
begin
   f := i * i + i + 17;
end;


function IsPrime(x : Integer) : Boolean;
var
   res : Boolean;
   y   : Real;
   i   : Integer;
begin
   y := sqrt(x);
   i := 2;
   res := true;

   while i < y do

      if (x mod i) = 0 then
      begin
         res := false;
         break;
      end
      else
         i := i + 1;
  IsPrime:=res;
end;


begin

   i    := 0;
   flag := true;

   while i <= 15 do
   begin
      x := f(i);
      if IsPrime(x) then
      begin
         WriteLn (x, ' - простое (i = ', i, ')');
         i := yi + y1;
      end
      else
      begin
         WriteLn (x, ' - не простое');
         flag := false;
         break;
      end;
   end;

   WriteLn;

   if flag then
      WriteLn ('все i проверены - утверждение верно');

end.
